@@ -123,3 +123,11 @@ Revision history for Perl extension Filter::Simple
- Port changes from core: Remove unnecessary PERL_CORE check
from tests.
+0.86
+ - Never released to CPAN (only part of the perl core 5.14.0)
+
+0.87 Fri May 20 20:00:00 CET 2011
+
+ - Port changes from core: Whitespace fix that is significant for
+ POD correctness.
+
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Filter-Simple
-version: 0.85
+version: 0.87
abstract: Simplified source filtering
author:
- Damian Conway
@@ -414,7 +414,7 @@ DESCRIPTION
use Filter::Simple;
FILTER { s/(\w+)/\U$1/ };
-
+
that will almost never be a problem, but if you install a filtering
subroutine by passing it directly to the "use Filter::Simple" statement:
@@ -497,3 +497,4 @@ COPYRIGHT AND LICENSE
Copyright (c) 2000-2008, Damian Conway. All Rights Reserved.
This module is free software. It may be used, redistributed
and/or modified under the same terms as Perl itself.
+
@@ -4,7 +4,7 @@ use Text::Balanced ':ALL';
use vars qw{ $VERSION @EXPORT };
-$VERSION = '0.85';
+$VERSION = '0.87';
use Filter::Util::Call;
use Carp;
@@ -609,7 +609,7 @@ with a final debugging pass that prints the resulting source code:
=head2 Filtering only the code parts of source code
-
+
Most source code ceases to be grammatically correct when it is broken up
into the pieces between string literals and regexes. So the C<'code'>
and C<'code_no_comments'> component filter behave slightly differently
@@ -702,7 +702,7 @@ to install the filter:
use Filter::Simple;
FILTER { s/(\w+)/\U$1/ };
-
+
that will almost never be a problem, but if you install a filtering
subroutine by passing it directly to the C<use Filter::Simple>
statement:
@@ -1,5 +1,5 @@
BEGIN {
- unshift @INC, 't/lib/';
+ unshift @INC, 't/lib/';
}
use Filter::Simple::FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
@@ -1,5 +1,5 @@
BEGIN {
- unshift @INC, 't/lib/';
+ unshift @INC, 't/lib/';
}
BEGIN { print "1..1\n" }
@@ -1,5 +1,5 @@
BEGIN {
- unshift @INC, 't/lib/';
+ unshift @INC, 't/lib/';
}
use Filter::Simple::FilterTest qr/not ok/ => "ok", fail => "ok";
@@ -1,5 +1,5 @@
BEGIN {
- unshift @INC, 't/lib/';
+ unshift @INC, 't/lib/';
}
use Filter::Simple::FilterOnlyTest qr/not ok/ => "ok",
@@ -1,5 +1,5 @@
BEGIN {
- unshift @INC, 't/lib';
+ unshift @INC, 't/lib';
}
BEGIN { print "1..4\n" }